Top 10k strings from Radix VII (1984)(Aackosoft)[re-release].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
4 (start/256
3 ;"Geocentric:":
3 , or any other key for
2 y. ENABLE SEQUENCE STOP
2 a,b;o$(i):
2 a,b;" ":
2 ;"n. DISABLE SEQUENCE STOP":
2 ;"2. OTHER HOUSE SYSTEM";
2 ;"1. PLACIDUS HOUSES";
2 ;" Press 1 to
2 );"h";i$(4
2 )+":"+o$(2
2 "Heliocentric:";
1 ~fff,.0122
1 |.}Vl,.073
1 {333,-.0066
1 {333,-.00096
1 zfff,-.1122
1 zfff,-.0038
1 yw=(au*e1)*(1
1 y,x;h$(i)(2
1 xw=-(au*e1)*
1 xk=(xx*yw-yy*xw)/(xx*xx+yy*yy)
1 xk=(xx*yh-yy*xh)/(xx*xx+yy*yy)
1 w$="RADIX VII HAS NOW BEEN LOADED......STOP THE TAPE......
1 w$="PRESS SPACE INSTEAD OF ENTER TO CHANGE STANDARD OPTION......
1 u333,.0027
1 u(h(i)+180
1 u(asc+i*y):
1 u((ll+ml)/m)
1 u((6.6460656
1 sfff,-.00099
1 s(l1-y)+148
1 s(l-l1)-125
1 s(l+l1-y)+192
1 s(l+l1)-55
1 s(l+f-y)+117
1 s(l+f)-999
1 s(l)-4586.4
1 s(f-y)+199
1 radix
1 r2=RAMC+(x1/f):
1 r(s+s1*CI+s2*CI*CI):
1 r(60.000001
1 r(23.452294
1 q(a,y)=q(a,y)+1
1 pf=asc+c(10
1 nob,start-256
1 n. DISABLE SEQUENCE STOP
1 n$="EAMEVEMAJUSAURNEPLNO"
1 ml=ml-411.6
1 ml=ml+2369.9
1 ml=22639.6
1 mb=18461.5
1 l=x(i)-r2:
1 l=(ll-g1)/m:
1 l1=((ll-d)-g)/m:
1 kQ,58517.8039
1 k(i)=k(i)-1
1 k(i)=k(i)+360
1 k(i)<h(j+1
1 gmt=gmth+gmtm/60
1 g1=1203586
1 g$="Regiomont.":
1 g$="Porphyry":
1 g$="Placidus"
1 g$="Meridian":
1 g$="Koch":
1 g$="Equal":
1 g$="Campanus":
1 ffff,.00045
1 fff,74.1757
1 fff,-.0153
1 fff,-.0003
1 f=(ll-n)/m:
1 f(i)=b(j):
1 e1=.01720209
1 e(i)=a(j):
1 e(i),f(i);o$(i):
1 e$=e$+"(+P"+
1 decl+(decl-
1 d(RAMC)/15
1 d(RAMC)+d+a2*
1 d$=a$+x$+" "+y$
1 c$(i)=n$((i-1
1 b(j)=b(j)+b:
1 a~(#,3033.6879
1 a(j)=a(j)+a:
1 a(j),b(j);o$(i)
1 a$=p$(i,21
1 a$=a$+x$+b$+y$
1 `,19139.8585
1 [333,.0003
1 Y,427.2742
1 S&ff,-17.7
1 RRRUURU<BB$
1 RC2
1 RC1 x
1 RADIX VII
1 Press 1-7 for desired system"
1 PROGRESSIONS
1 PRESS ENTER TO RUN PROGRAM
1 PRESS 1-7 FOR REQUIRED OPTION
1 OL=OLd+OLm/60
1 NB=NBd+NBm/60
1 LSTs;"s ";''
1 LSTm=(LSTs-LSTh)*60
1 LQ-.0130125
1 LA=NBd+NBm/100
1 Entry page
1 D8|((((((|
1 Created with Ramsoft MakeTZX
1 CI=CI1+j/36525
1 CI=((j-2415020
1 Bfff,-.0002
1 BR=.0057683
1 AZI and ALTI
1 >,338.9117
1 ;x$;bd;b$;bm;
1 ;o$(i);" ";ad;y$;am;
1 ;m$;" ";s$
1 ;g$;" houses"
1 ;'"Heliocentric:";
1 ;"y. ENABLE SEQUENCE STOP";
1 ;"ST=";LSTh;"h";
1 ;"ST: ";LSTh;"h";
1 ;"REGIOMONTANUS":
1 ;"RADIX VII is loading";
1 ;"Please wait..."
1 ;"PROGRESSIONS";
1 ;"PORPHYRY":
1 ;"PLANETS":
1 ;"PLANETS"
1 ;"OPTIONS":
1 ;"MO";":";
1 ;"MERIDIAN":
1 ;"Long:ddd";"
1 ;"Lat:dd";"
1 ;"LOcAL HOrizON":
1 ;"LOcAL HOrizON"'
1 ;"HOUSES";" (";g$;")"'':
1 ;"HOUSE SYSTEMS";
1 ;"GMT:hh";"
1 ;"GMT: ";i$:
1 ;"GMT: ";i$(
1 ;"Event: ";
1 ;"Copy Mode":
1 ;"Copy Mode"
1 ;"CAMPANUS":
1 ;"AZIMUTH";
1 ;"ALTITUDE";
1 ;"7. Progressions"
1 ;"7. CAMPANUS";
1 ;"6. PORPHYRY";
1 ;"6. Loc.Horizon&decl.";
1 ;"5. MERIDIAN";
1 ;"5. Aspects";
1 ;"4. REGIOMONTANUS";
1 ;"4. Planet Positions";
1 ;"3. LOCAL HORIZON":
1 ;"3. LOCAL HORIZON"
1 ;"3. EQUAL";
1 ;"3. Chart Wheel";
1 ;"2. KOCH ";
1 ;"2. Input/New";
1 ;"1. PLACIDUS";
1 ;"1. Copy";
1 ;"-----------------":
1 ;"*Mme SOSOSTRIS*":
1 ;"*ASTRO COMPUTING*"
1 ;" RADIX VII ";
1 ;" ENTER?":
1 ;" long. lat. long. lat."
1 ;" Press any key for menu":
1 ;" PRESS ANY KEY FOR
1 ;" Enter number of years"''" of"''" secondary progressions."
1 ;"
1 ;"
1 9*0U,54.3841
1 4m,75.7796
1 333,-.00426
1 333,-.0005
1 3. LOCAL HORIZON
1 2fff,-.0006
1 2. OTHER HOUSE SYSTEM
1 1. PLACIDUS HOUSES
1 ,start-256
1 ,35999.0498
1 ,240.45516
1 ,149472.515
1 ,130.68415
1 ,1223.50796
1 +2400.0513
1 +1732564379
1 +1602961611
1 *CI*CI+gmt)*15
1 *(year+4800
1 )="water "+
1 )="fire "+
1 )="earth "+
1 )="air "+
1 )="PF"+":"+l$:
1 )="NO"+":"+l$
1 )="MO"+":"+m$+" "+s$:
1 )="---------------":
1 )=" car fix mut":
1 (x/mo)*mo)
1 (ramc+dn):
1 (ramc+dn)*
1 (XX*XX+YY*YY+ZZ*ZZ)*
1 ((v*CI+w)*
1 (((u-z3)*60
1 &~($,273.393
1 $6ff,-61.4
1 "fff,.0145
1 "Years ";j
1 "ST: ";LSTh;"h";
1 "GMT: ";i$(
1 ";"year: ";
1 "---------------";
1 !*CI+2.58e-5
1 1984 by Mme SOSOSTRIS ASTRO COMPUTING.......RADIX VII IS ACCURATE TO ONE MINUTE OF ARC FOR PRACTICALLY ALL TIMES, ALSO FOR THE OUTER PLANETS.....CHOICE OF SEVEN DIFFERENT HOUSE SYSTEMS.....SECONDARY PROGRESSIONS.......ASTRONOMICAL OPTION......PRESS ENTER TO START................................."
1 1984 by Mme SOSOSTRIS ASTRO COMPUTING.................................":
1 1984 by MADAME SOSOSTRIS"
1 House routine runs